# name : paramdef2list, parameters to list, using lapply
# key : paramdef2list_lapply
# contributor : Shuguang Sun
# --
${1:params} <- expand.grid(${2:atom = value})
$1l <- lapply(seq_len(nrow($1)), function(i) $1[i, ])$0